home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Lists Lingo.dir / Scripts_124_setProp aPropertyList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  699 b   |  19 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   if the result = 1 then
  5.     set vValue to the text of member "Changing Property SetProp Input Field 2"
  6.     set vValue to checkValue(vValue)
  7.     set vProperty to the text of member "Changing Property SetProp Input Field 1"
  8.     set vProperty to checkValue(vProperty)
  9.     if (vValue <> EMPTY) and (vProperty <> EMPTY) then
  10.       if voidp(getaProp(gDefaultPropList, vProperty)) then
  11.         displayError("<For non-existent property in setProp>")
  12.       else
  13.         setProp(gDefaultPropList, vProperty, vValue)
  14.         set the text of member "Changing Property SetProp Display Field 1" to string(gDefaultPropList)
  15.       end if
  16.     end if
  17.   end if
  18. end
  19.